!·˫Ԫģ
FINI
/CLE

/FILNAME,EX5-5
/TITLE,THE ANALYSIS OF THE DOUBLE-ARCH TUNNEL

!β趨λM
W=50		!ģұ߽X
L1=23.11	!ڿ
L2=3.5		!ê˳
D1=5.78		!X
D2=1		!ǽײX

H1=2.9241	!ǽY
H2=3.06		!ǽײY
H3=2.06		!ǽײY2
H4=40		!ģ±߽Y
H5=26		!ģϱ߽Y

T1=1.6		!ǽ
T2=0.25		!ĺ
T3=0.55		!
T4=0.25		!֧

R1=5.775	!뾶
R2=10.34	!뾶
R3=4		!е֧뾶
R4=25E-3	!êֱ
NUM=20		!ÿê
!ϲ趨
!Χ
E_R=1.4E9	!ģPA
U_R=0.4		!ɱ
DENS_R=1826.5	!ܶȣKG/M^-3
C_R=0.16E6	!PA
FI_R=28		!Ħ

!C25
E_C=28.5E9	!ģPA
U_C=0.2		!ɱ
DENS_C=2449	!ܶȣKG/M^-3

!C20
E_C20=26E9	!ģPA
U_C20=0.2	!ɱ
DENS_C20=2349	!ܶȣKG/M^-3

!25êˣANCHOR ROD
E_A=170E9	!ģPA
U_A=0.3		!ɱ
DENS_A=7959	!ܶȣKG/M^-3

!======================
!========ǰ========
!======================
/PREP7
!=====嵥Ԫ=====
ET,1,42			!PLANE42Ԫ
KEYOPT,1,3,2		!ΪƽӦ

ET,2,3			!BEAM3Ԫ
KEYOPT,2,6,1		!ѡ

ET,3,1			!LINK1Ԫ

!==========
!Χ1~7
*DO,I,1,7,1
  MP,EX,I,E_R        	!Χҵģ
  MP,PRXY,I,U_R      	!ΧҲɱ
  MP,DENS,I,DENS_R   	!Χܶ
  TB,DP,I
  TBDATA,1,C_R,FI_R
*ENDDO

!8~11
*DO,I,8,11,1
  MP,EX,I,E_C        	!ģ
  MP,PRXY,I,U_C      	!ɱ
  MP,DENS,I,DENS_C   	!ܶ
*ENDDO

!ê12~13
*DO,I,12,13,1
  MP,EX,I,E_A        	!ê˵ģ
  MP,PRXY,I,U_A      	!ê˲ɱ
  MP,DENS,I,DENS_A   	!êܶ
*ENDDO

!иǽ14
MP,EX,14,E_C20        	!ģ
MP,PRXY,14,U_C20      	!ɱ
MP,DENS,14,DENS_C20   	!ܶ

!=====ʵ=====
R,1,T2,T2/12,T2		!
R,2,T3,T3/12,T3		!
R,3,T4,T4/12,T4		!֧
R,4,3.14*(R4/2)**2	!ê

!=====ʵ彨ģ=====
!ǽе
RECTNG,-T1/2,T1/2,-H2,H1	!ǽ
WPOFFS,,-H3			!ƽYƫ-H3
WPROTA,,90			!ƽXת90
LSBW,ALL			!ùƽиѡ

K,7,T1/2+D2,-H2			!7Źؼ
K,8,-T1/2-D2,-H2		!8Źؼ
L,1,8				!18Źؼ
L,2,7				!27Źؼ

LARC,7,3,6,R3			!Բ
LARC,4,8,5,R3			!Բ

WPCSYS				!ƽ뵱ǰϵغ
WPROTA,,90			!ƽXת90
LSBW,ALL			!ùƽиѡ
L,11,12				!1112Źؼ

!
WPCSYS				!ƽ뵱ǰϵغ
WPOFFS,D1			!ƽXƫD1
CSWPLA,11,1			!ڹƽ洦11žֲϵ
K,13,R1				!ؼ
L,13,3				!
K,100,R1+L2			!ؼ
K,101,R1+L2,160			!ؼ
L,100,101			!

CSYS				!ѿϵ
WPCSYS				!ƽ뵱ǰϵغ
WPOFFS,-D1			!ƽXƫ-D1
CSWPLA,12,1			!ڹƽ洦12žֲϵ
K,16,R1,180			!ؼ
L,4,16				!
K,200,R1+L2,180			!ؼ
K,201,R1+L2,20			!ؼ
L,200,201			!

LSEL,S,LINE,,8,10,1		!ѡ891019
LSEL,A,LINE,,19
LCSL,ALL			!ڽ㴦
LDEL,25,27,2,1			!ɾ

L,13,100			!
L,16,200			!

!
CSYS				!ѿϵ
WPCSYS				!ƽ뵱ǰϵغ
K,,L1/2,-H3			!ؼ
K,,-L1/2,-H3			!ؼ
L,18,13				!
L,19,16				!
LARC,6,18,10,R2			!Բ
LARC,19,5,11,R2			!Բ

ALLS				!ѡԪ
LCSL,18,27			!ڽ㴦
LCSL,17,25			!ڽ㴦

ALLS				!ѡԪ
NUMCMP,ALL			!ѹԪر

!ģͱ߽
RECTNG,-W,W,-H4,H5		!ģ;
LSEL,U,LINE,,34,37,1		!ӵǰѡų߽
ASBL,2,ALL			!õǰѡ߷ָ2

!ê
CSYS,11				!11žֲϵ				
WPCSYS				!ƽ뵱ǰϵغ
WPROTA,,-90			!ƽXת-90
ASEL,S,AREA,,7,9,2		!ѡ79
*DO,I,1,NUM-1,1			!ѭ
  WPROTA,,,-7.3			!ƽYת-7.3
  ASBW,ALL			!ùƽиѡ
*ENDDO				!ѭ

CSYS,12				!11žֲϵ
WPCSYS				!ƽ뵱ǰϵغ
WPROTA,,-90			!ƽXת-90
ASEL,S,AREA,,7,9,1		!ѡ78932
ASEL,A,AREA,,32
*DO,I,1,NUM-1,1			!ѭ
  WPROTA,,,7.3			!ƽYת7.3
  ASBW,ALL			!ùƽиѡ
*ENDDO				!ѭ

ALLS				!ѡԪ
NUMCMP,ALL			!ѹԪر
!=====ֵԪ=====
!иڱ߽ڻ
CSYS				!ѿϵ
WPCSYS				!ƽ뵱ǰϵغ
WPROTA,,-90			!ƽXת-90

WPROTA,,,90			!ƽYת90
WPOFFS,,,4*L1/5			!ƽZƫ4*L1/5
ASBW,ALL			!ùƽиѡ
WPOFFS,,,-8*L1/5		!ƽZƫ-8*L1/5
ASBW,ALL			!ùƽиѡ

WPROTA,,,90			!ƽYת90
WPOFFS,,,-H5/2			!ƽZƫ-H5/2
ASBW,ALL			!ùƽиѡ
WPOFFS,,,H5/2+2.5*H2		!ƽZƫH5/2+2.5*H2
ASBW,ALL			!ùƽиѡ

!===Ԫ===!M2
TYPE,2				!ָ2ŵԪ
!е֧
REAL,3				!ָ3ʵ
MAT,8				!ָ8ŲϺ
LSEL,S,LINE,,12,32,20		!ѡ1232
LESIZE,ALL,,,6			!ָ
LMESH,ALL			!ֵǰѡ

MAT,9				!ָ9ŲϺ
LSEL,S,LINE,,13,30,17		!ѡ1330
LESIZE,ALL,,,6			!ָ
LMESH,ALL			!ֵǰѡ

!֧
MAT,10				!ָ10ŲϺ
!
REAL,1				!ָ1ʵ
ASEL,S,AREA,,11			!ѡ11
LSLA,S				!ѡڵǰѡ
LSEL,U,LINE,,32,33,1		!ų3233
LSEL,U,LINE,,12			!ų12
LMESH,ALL			!ֵǰѡ
!
REAL,2				!ָ2ʵ
LSEL,S,LINE,,33			!ѡ33
LMESH,ALL			!ֵǰѡ

!֧
MAT,11				!ָ11ŲϺ
!
REAL,1				!ָ1ʵ
ASEL,S,AREA,,12			!ѡ12
LSLA,S				!ѡڵǰѡ
LSEL,U,LINE,,30,31,1		!ų3031
LSEL,U,LINE,,13			!ų13
LMESH,ALL			!ֵǰѡ
!
REAL,2				!ָ2ʵ
LSEL,S,LINE,,31			!ѡ31
LMESH,ALL			!ֵǰѡ

!===˵Ԫ===
TYPE,3				!ָ3ŵԪ
REAL,4				!ָ4ʵ
!ê
MAT,12				!ָ12ŲϺ
CSYS,11				!11žֲϵ
LSEL,S,LOC,Y,0			!ѡϵ½ǶΪ0
*DO,I,1,NUM-1,1			!ѭ
  LSEL,A,LOC,Y,I*7.3		!ѡ
*ENDDO				!ѭ
LSEL,U,LINE,,167		!ų167
LMESH,ALL			!ֵǰѡ
!ê
MAT,13				!ָ13ŲϺ
CSYS,12				!12žֲϵ
LSEL,S,LOC,Y,180		!ѡϵ½ǶΪ180
*DO,I,1,NUM-1,1			!ѭ
  LSEL,A,LOC,Y,180-I*7.3	!ѡ
*ENDDO				!ѭ
LSEL,U,LINE,,167		!ų167
LMESH,ALL			!ֵǰѡ

!===ΧҵԪ===
TYPE,1				!ָ1ŵԪ
!ǽ
MAT,1				!ָ1ŲϺ
ASEL,S,AREA,,4,5,1		!ѡ451
ASEL,A,AREA,,1			
LSEL,S,LINE,,14,16,1		!ѡ14151611
LSEL,A,LINE,,11
LESIZE,ALL,,,6			!ָ
LSEL,S,LINE,,1,3,2		!ѡ13
LESIZE,ALL,,,4			!ָ
AMESH,ALL			!ֵǰѡ
ALLS				!ѡԪ
!е
MAT,2				!ָ2ŲϺ
MSHKEY,1			!ָΪӳ񻮷
MSHAPE,0			!ָΪı񻮷
AMESH,3				!3

MAT,3				!ָ3ŲϺ
AMESH,6				!6

MAT,4				!ָ4ŲϺ
MSHKEY,0			!ָΪ񻮷
AMESH,10			!10
!
MAT,5				!ָ5ŲϺ
AMESH,11			!11
!
MAT,6				!ָ6ŲϺ
AMESH,12			!12
!Χ
MAT,7				!ָ7ŲϺ
CSYS				!ѿϵ
ASEL,S,LOC,X,-4*L1/5,4*L1/5	!ѡΧ
ASEL,R,LOC,Y,-2.5*H2,H5/2
ASEL,U,MAT,,1,6,1
LSEL,S,LINE,,176,179,3		!ѡ
LESIZE,ALL,,,30			!ָ
LSEL,S,LINE,,181,183,2		!ѡ
LESIZE,ALL,,,22			!ָ
AMESH,ALL			!ֵǰѡ
ALLS				!ѡԪ

LSEL,S,LOC,X,-W+1,-4*L1/5-1	!ѡ
LSEL,A,LOC,X,4*L1/5+1,W-1	
LESIZE,ALL,,,6			!ָ
LSEL,S,LOC,Y,H5/2+1,H5-1	!ѡ
LESIZE,ALL,,,4			!ָ
LSEL,S,LOC,Y,-2.5*H2-1,-H4+1	!ѡ
LESIZE,ALL,,,6			!ָ

ASEL,S,LOC,X,-4*L1/5,4*L1/5	!ѡΧ
ASEL,R,LOC,Y,-2.5*H2,H5/2
ASEL,INVE
MSHKEY,1			!ָΪӳ񻮷
MSHAPE,0			!ָΪı񻮷
AMESH,ALL			!ֵǰѡ

!=====߽=====
NSEL,S,LOC,X,-W			!ѡұ߽Ľڵ
NSEL,A,LOC,X,W
D,ALL,UX			!ԼǰѡнڵXλ

NSEL,S,LOC,Y,-H4		!ѡ±߽Ľڵ
D,ALL,UY			!ԼǰѡнڵYλ

ALLS				!ѡԪ
NUMCMP,ALL			!ѹԪر
!======================
!==============
!======================
FINI
/SOLU				!
ANTYPE,STATIC			!ָΪѧ
PRED,ON				!ʱ䲽Ԥ
LNSRCH,ON			!
NLGEOM,ON			!򿪴
NROPT,FULL			!趨ȫN-R
OUTRES,ALL,ALL			!ÿһ
NSUB,6,10			!趨ӲΪ6󲻳10

!غɲ1Ӧ
TIME,1

ACEL,,9.8			!ʩٶ9.8
ESEL,S,MAT,,8,13,1		!ѡ813ϺŵĵԪ
EKILL,ALL			!ɱԪ

ESEL,ALL			!ѡеԪ
ESEL,S,LIVE			!ѡлĵԪ
NSLE,S				!ѡǰԪнڵ
NSEL,INVE			!ѡ
D,ALL,ALL			!Լǰѡнڵɶ

ALLS				!ѡԪ
SOLVE				!
SAVE,S1,DB			!ΪS1.DB
!غɲ2е
TIME,2

ESEL,S,MAT,,2,4,1		!ѡ24ϺŵĵԪ
EKILL,ALL			!ɱԪ

ESEL,S,MAT,,8,9,1		!ѡ89ϺŵĵԪ
EALIVE,ALL			!Ԫ
NSLE,S				!ѡǰԪнڵ
DDELE,ALL,ALL			!ɾǰѡнڵԼ

ESEL,ALL			!ѡеԪ
ESEL,S,LIVE			!ѡлĵԪ
NSLE,S				!ѡǰԪнڵ
NSEL,INVE			!ѡ
D,ALL,ALL			!Լǰѡнڵɶ

ESEL,S,MAT,,1			!ѡ1ϺŵĵԪ
MPCHG,14,ALL			!ıΪ14Ϻ

ALLS				!ѡԪ
SOLVE				!
SAVE,S2,DB			!ΪS2.DB
!غɲ3
TIME,3

ESEL,S,MAT,,5,8,3		!ѡ58ϺŵĵԪ
EKILL,ALL			!ɱԪ

ESEL,S,MAT,,3,10,7		!ѡ31012ϺŵĵԪ
ESEL,A,MAT,,12
EALIVE,ALL			!Ԫ
NSLE,S				!ѡǰԪнڵ
DDELE,ALL,ALL			!ɾǰѡнڵԼ

ESEL,ALL			!ѡеԪ
ESEL,S,LIVE			!ѡлĵԪ
NSLE,S				!ѡǰԪнڵ
NSEL,INVE			!ѡ
D,ALL,ALL			!Լǰѡнڵɶ

ALLS				!ѡԪ
SOLVE				!
SAVE,S3,DB			!ΪS3.DB
!غɲ4
TIME,4

ESEL,S,MAT,,3,9,3		!ѡ369ϺŵĵԪ
EKILL,ALL			!ɱԪ

ESEL,S,MAT,,11,13,2		!ѡ1113ϺŵĵԪ
EALIVE,ALL			!Ԫ
NSLE,S				!ѡǰԪнڵ
DDELE,ALL,ALL			!ɾǰѡнڵԼ

ESEL,ALL			!ѡеԪ
ESEL,S,LIVE			!ѡлĵԪ
NSLE,S				!ѡǰԪнڵ
NSEL,INVE			!ѡ
D,ALL,ALL			!Լǰѡнڵɶ

ALLS				!ѡԪ
SOLVE				!
SAVE,S4,DB			!ΪS4.DB

!======================
!======ͨú======
!======================
FINI
/POST1
!==Ӧ==
RESUME,'S1','DB'		!ΪS1DBļ
FILE,'EX5-5','RST'		!ָļ  
SET,1,LAST	   		!1غɲһӲ

ESEL,S,LIVE			!ѡ񼤻ĵԪ
PLNSOL,U,SUM,0,1.0     		!ʾλͼ
PLNSOL,U,X		     	!ʾXλͼ
PLNSOL,U,Y		     	!ʾYλͼ

PLNSOL,S,EQV    		!ʾEQUIVALENT STRESS

!==غɲ2==
RESUME,'S2','DB'		!ΪS2DBļ

!ΧҵЧӦ
ESEL,S,LIVE			!ѡ񼤻ĵԪ
ESEL,U,MAT,,14			!ųǽĵԪ
PLNSOL,S,EQV    		!ʾEQUIVALENT STRESS

!ǽЧӦ
ESEL,S,MAT,,14			!ѡǽĵԪ
PLNSOL,S,EQV    		!ʾEQUIVALENT STRESS

!֧
ESEL,S,LIVE
ESEL,R,ENAME,,3			!ѡԪΪBEAM3ĵԪ
ETABLE,FX_I,SMISC,1  		!
ETABLE,FX_J,SMISC,7
ETABLE,FY_I,SMISC,2  		!
ETABLE,FY_J,SMISC,8
ETABLE,MZ_I,SMISC,6  	!	
ETABLE,MZ_J,SMISC,12

PLLS,MZ_I,MZ_J,-0.05  		!ʾ
PLLS,FX_I,FX_J,0.05 		!ʾ

!鿴λƳȥʼλƳ
FILE,'EX5-5','RST'		!ָļ  
SET,2,LAST	   		!2غɲһӲ

LCDEF,1,1 			!1غɲΪ1
LCOPER,SUB,1   			!ǰغɲĽȥ1Ľ

ESEL,S,LIVE			!ѡ񼤻ĵԪ
PLNSOL,U,SUM     		!ʾλͼ
PLNSOL,U,X	     		!ʾXλͼ
PLNSOL,U,Y	     		!ʾYλͼ

!==غɲ3==
RESUME,'S3','DB'		!ΪS3DBļ

!ΧҵЧӦ
ESEL,S,LIVE			!ѡ񼤻ĵԪ
ESEL,U,MAT,,14			!ųǽĵԪ
PLNSOL,S,EQV    		!ʾEQUIVALENT STRESS

!ǽЧӦ
ESEL,S,MAT,,14			!ѡǽĵԪ
PLNSOL,S,EQV    		!ʾEQUIVALENT STRESS

!֧
ESEL,S,LIVE
ESEL,R,ENAME,,3			!ѡԪΪBEAM3ĵԪ
ETABLE,FX_I,SMISC,1  		!
ETABLE,FX_J,SMISC,7
ETABLE,FY_I,SMISC,2  		!
ETABLE,FY_J,SMISC,8
ETABLE,MZ_I,SMISC,6  	!	
ETABLE,MZ_J,SMISC,12

PLLS,MZ_I,MZ_J,-0.2  		!ʾ
PLLS,FX_I,FX_J,0.2 		!ʾ

!鿴ê
ESEL,S,LIVE			!ѡ񼤻ĵԪ
ESEL,R,ENAME,,1			!ѡԪΪLINK1ĵԪ
ETABLE,FORX,SMISC,1  		!

PLLS,FORX,FORX,0.05  		!ʾ 

!鿴λƳȥʼλƳ
FILE,'EX5-5','RST'		!ָļ  
SET,3,LAST	   		!3غɲһӲ

LCDEF,1,1 			!1غɲΪ1
LCOPER,SUB,1   			!ǰغɲĽȥ1Ľ

ESEL,S,LIVE			!ѡ񼤻ĵԪ
ESEL,U,MAT,,3			!ȥĵԪ
PLNSOL,U,SUM     		!ʾλͼ
PLNSOL,U,X	     		!ʾXλͼ
PLNSOL,U,Y	     		!ʾYλͼ

!==غɲ4==
RESUME,'S4','DB'		!ΪS4DBļ

!ΧҵЧӦ
ESEL,S,LIVE			!ѡ񼤻ĵԪ
ESEL,U,MAT,,14			!ųǽĵԪ
PLNSOL,S,EQV    		!ʾEQUIVALENT STRESS

!ǽЧӦ
ESEL,S,MAT,,14			!ѡǽĵԪ
PLNSOL,S,EQV    		!ʾEQUIVALENT STRESS

!
ESEL,S,LIVE
ESEL,R,ENAME,,3			!ѡԪΪBEAM3ĵԪ
ETABLE,FX_I,SMISC,1  		!
ETABLE,FX_J,SMISC,7
ETABLE,FY_I,SMISC,2  		!
ETABLE,FY_J,SMISC,8
ETABLE,MZ_I,SMISC,6  	!	
ETABLE,MZ_J,SMISC,12

PLLS,MZ_I,MZ_J,-0.2  		!ʾ
PLLS,FX_I,FX_J,0.2 		!ʾ

!鿴ê
ESEL,S,LIVE			!ѡ񼤻ĵԪ
ESEL,R,ENAME,,1			!ѡԪΪLINK1ĵԪ
ETABLE,FORX,SMISC,1  		!

PLLS,FORX,FORX,0.05  		!ʾ 

!鿴λƳȥʼλƳ
FILE,'EX5-5','RST'		!ָļ  
SET,4,LAST	   		!4غɲһӲ

LCDEF,1,1 			!1غɲΪ1
LCOPER,SUB,1   			!ǰغɲĽȥ1Ľ

ESEL,S,LIVE			!ѡ񼤻ĵԪ
PLNSOL,U,SUM     		!ʾλͼ
PLNSOL,U,X	     		!ʾXλͼ
PLNSOL,U,Y	     		!ʾYλͼ

